home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / misc / identify / identify_dev / arexx / functionname.ify < prev    next >
Text File  |  1999-05-14  |  763b  |  28 lines
  1. /*****************************************************************
  2. **                                                              **
  3. **  functionname.ify    rexxidentify.library demonstration      **
  4. **                                                              **
  5. ******************************************************************
  6. **
  7. **      (c) 1997 by Richard Körber -- All Rights Reserved
  8. **
  9. **      You may use this example freely for your own programs.
  10. **
  11. */
  12.  
  13.   /* Add the library functions */
  14. CALL AddLib("/libs/rexxidentify.library",0,-30,0)
  15.  
  16. SAY "Enter library/device/resource name (e.g. exec.library)"
  17. PULL libname
  18. SAY "Enter function offset (e.g. -456)"
  19. PULL offset
  20.  
  21. SAY "The function name is '"|| ID_Function(libname,offset) ||"'."
  22.  
  23. SAY ""
  24.  
  25. EXIT
  26.  
  27.  
  28.